home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
clipper
/
52dix.zip
/
INSTALL.DAT
< prev
next >
Wrap
Text File
|
1994-04-21
|
20KB
|
688 lines
/****************************************************************/
/* INSTALL.DAT */
/* */
/* Copyright (c) 1993 Computer Associates International */
/* All Rights Reserved */
/* */
/* Last revision: 04/21/94 */
/****************************************************************/
@DefineProject
@Group = "A"
@Requires @HardDisk
@Name = "CA-Clipper 5.2d (Int'l) / ExoSpace 1.0f"
@Version = "5.2d"
@OutDrive = C
@Subdir = "\\CLIPPER5"
@EndProject
@DefineVars
@Integer @InDisk = 0 /* change for proper input disk type */
@Integer @IsExo = 1 /* is ExoSpace installed */
@Dir @Bin = "@SubDir\\BIN"
@Dir @Include = "@SubDir\\INCLUDE"
@Dir @Lib = "@SubDir\\LIB"
@Dir @Obj = "@SubDir\\OBJ"
@Dir @Dbu = "@SubDir\\SOURCE\\DBU"
@Dir @Rl = "@SubDir\\SOURCE\\RL"
@Dir @Sys = "@SubDir\\SOURCE\\SYS"
@Dir @Sample = "@SubDir\\SOURCE\\SAMPLE"
@Dir @Ng = "\\NG"
@Dir @ExoBin = "@SubDir\\BIN"
@Dir @Error = "@SubDir\\SOURCE\\ERROR"
@Dir @Filesys = "@SubDir\\SOURCE\\FILESYS"
@Dir @Item = "@SubDir\\SOURCE\\ITEM"
@Dir @Sdx = "@SubDir\\SOURCE\\SDX"
@Dir @Vm = "@SubDir\\SOURCE\\VM"
@Qstring @NewLine = "\n"
@Qstring @Pkbkp = "/O"
@Qstring @InstName = @Name
@EndVars
@Display
@Cls
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ @InstName Patch
█ Computer █
█ Associates █ This program will upgrade the CA-Clipper
█ International █ version 5.20, 5.2a, 5.2b or 5.2c files on
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█ your computer system to 5.2d. It will also
▄▄▄▄▄▄▄▄▄ upgrade CA-Clipper/Exospace to version 1.0f
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ if ExoSpace is already installed on your
computer. The basic steps in the procedure
are as follows:
■ Specify target directories
■ Install patch files to hard disk
■ Execute patch files
Press Esc at any time to stop the installation.
@Pause
@EndDisplay
@GetOption
@LocalWindow(9,38)
@Cls
@Cls
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ @InstName Installation
█ Computer █
█ Associates █
█ International █ Exit Patch and Perform a backup?
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
▄▄▄▄▄▄▄▄▄
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
@Option 10 = "Exit"
@Option 11 = "Continue"
@Newline
You should backup your current versions of CA-Clipper 5.2 and
ExoSpace (if it's installed) and remove any prior versions of
CA-Clipper 5.2 from your CA-Clipper 5.2 directory structure
before applying the CA-Clipper 5.2d upgrade patch. If you
have not backed up and removed any prior versions (as per the
instructions contained in the 52DI.TXT file) yet, you should
exit this installation, perform a backup and restart the patch
process.
@EndOption
@If ( 10 [= @Option )
@Exit ()
@Endif
DrivePick:
@GetOutDrive
@Suppress A
@Suppress B
@LocalWindow(11,36)
@Cls
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ @InstName Installation
█ Computer █
█ Associates █ Select Target Drive:
█ International █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
▄▄▄▄▄▄▄▄▄
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Use and to highlight the drive where CLIPPER 5.2 is installed,
then press ─┘ to continue. Press Esc to exit.
@EndOutDrive
@GetSubdir
@LocalWindow(7,56)
@Cls
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ @InstName Installation
█ Computer █
█ Associates █ Select Clipper 5.2 Directory:
█ International █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
▄▄▄▄▄▄▄▄▄
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Type the directory name where CLIPPER 5.2 is installed, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@GetOption
@LocalWindow(8,40)
@Cls
@Cls
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ @InstName Installation
█ Computer █
█ Associates █
█ International █ Do you have ExoSpace installed?
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
▄▄▄▄▄▄▄▄▄
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
@Option 50 = " Yes "
@Option 51 = " No "
@Newline
Select 'Yes' if you have CA-Clipper/ExoSpace installed. You will be
prompted for the directory name where EXOSPACE.EXE is installed.
You should NOT press 'Yes' if you do not have ExoSpace installed on
your computer.
@EndOption
@If ( 51 [= @Option )
@IsExo = 0
@InstName = "CA-Clipper 5.2d (International)"
@Endif
@If ( @IsExo != 0 )
@GetSubdir @ExoBin
@LocalWindow(7,56)
@Cls
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ @InstName Installation
█ Computer █
█ Associates █ Select ExoSpace.EXE Directory
█ International █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
▄▄▄▄▄▄▄▄▄
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Type a directory name, and press ─┘ to continue. Press Esc to exit.
@EndSubdir
@Endif
@GetOption
@LocalWindow(7,40)
@Cls
@Cls
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ @InstName Installation
█ Computer █
█ Associates █ Patch files in the following directories?
█ International █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
▄▄▄▄▄▄▄▄▄
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
@Option 101 = " Yes "
@Option 102 = " No "
@Move(9,1)
Executables => @Subdir\BIN
Libraries => @Subdir\LIB
Header files => @SubDir\INCLUDE
Obj files => @SubDir\OBJ
Norton guide => \NG
@If ( @IsExo != 0 )
@Move(14,1)
ExoSpace.EXE => @ExoBin
@Endif
Select 'Yes' to proceed with patch installation using directories
shown above. If you select 'No', you will be prompted for each
of the above directories.
@EndOption
@Bin = "@Subdir\\Bin"
@Lib = "@Subdir\\Lib"
@Include = "@Subdir\\Include"
@Obj = "@Subdir\\Obj"
@Ng = "\\NG"
@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Bin" ) ) )
GetBinPath:
@GetSubdir @Bin
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the BIN directory, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@If ( ! @DirExists( "@OutDrive:@Bin" ) )
@Display
@Move( 12, ( 58 - @StrLen( "@Bin" ) ) / 2, "@OutDrive:@Bin DIRECTORY NOT FOUND" )
@Move( 16, 1 )
@Pause
@EndDisplay
@Goto GetBinPath
@Endif
@Endif
@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Lib" ) ) )
GetLibPath:
@GetSubdir @Lib
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the LIB directory, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@If ( ! @DirExists( "@OutDrive:@Lib" ) )
@Display
@Move( 12, ( 58 - @StrLen( "@Lib" ) ) / 2, "@OutDrive:@Lib DIRECTORY NOT FOUND" )
@Move( 16, 1 )
@Pause
@EndDisplay
@Goto GetLibPath
@Endif
@Endif
@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Include" ) ) )
GetIncludePath:
@GetSubdir @Include
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the INCLUDE directory, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@If ( ! @DirExists( "@OutDrive:@Include" ) )
@Display
@Move( 12, ( 58 - @StrLen( "@Include" ) ) / 2, "@OutDrive:@Include DIRECTORY NOT FOUND" )
@Move( 16, 1 )
@Paus